home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / COTTER.ARC / CUSTOM KYBD (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.1 KB  |  158 lines
  1. 5 DIM CT$(40):OPEN15,8,15
  2. 10 PRINT"[147]"CHR$(14)
  3. 20 PRINT"1. [205]AKE CHANGES TO CURRENT KEY CODES"
  4. 25 PRINT"2. [210]EPLACE CODES WITH AN EXISTING FILE"
  5. 30 PRINT"3. [210]ESTORE [193][211][195][201][201] KEY CODES":PRINT"4. [197]XIT"
  6. 40 GETA$:A=VAL(A$):IFA<1ORA>4THEN40
  7. 50 IFA=4THENCLOSE15:END
  8. 60 ONAGOSUB100,1000,1100
  9. 70 GOTO10
  10. 100 OPEN8,8,8,"0:KFG,S,R":GOSUB2000:IFER=1THENCLOSE8:RETURN
  11. 110 FORI=0TO255:GET#8,A$:IFA$=""THENPOKE16384+I,0:NEXT
  12. 115 POKE16384+I,ASC(A$):NEXT
  13. 120 CLOSE8
  14. 130 PRINT"[147] [203][197][217] [195][207][196][197]  [203][197][217] [195][207][196][197]  [203][197][217] [195][207][196][197]  [203][197][217] [195][207][196][197]"
  15. 140 PRINT"  [211][208]=";PEEK(16384+32)
  16. 150 FORI=33TO53:PRINTTAB(2)CHR$(I);" =";PEEK(16384+I);CHR$(20):NEXT
  17. 160 PRINT""
  18. 170 FORI=54TO75:PRINTTAB(12)CHR$(I);" =";PEEK(16384+I):NEXT
  19. 180 PRINT"":FORI=76TO94:IFI=92THENNEXT
  20. 185 PRINTTAB(22)CHR$(I);" =";PEEK(16384+I):NEXT
  21. 190 FORI=193TO196:PRINTTAB(22)CHR$(I);" =";PEEK(16384+I):NEXT
  22. 200 PRINT"":FORI=197TO218:PRINTTAB(32)CHR$(I);" =";PEEK(16384+I)"[157]":NEXT
  23. 210 PRINT" [205]AKE A SELECTION, KEY ENTRY + [210][197][212][213][210][206].":PRINT"              \=[206][197][216][212] [208][193][199][197]";
  24. 220 GETA$:IFA$=""THEN220
  25. 223 IFA$="\"THEN410
  26. 225 IFASC(A$)<32THEN220
  27. 230 IFASC(A$)>53THEN300
  28. 235 X1=31:Y=5:X2=6:GOSUB240:GOTO220
  29. 240 A=ASC(A$):PRINT"":FORI=1TOA-X1:PRINT"";:NEXT
  30. 250 PRINTTAB(X2);"[145]";:OPEN1,0:INPUT#1,B$:CLOSE1:B=VAL(LEFT$(B$,3)):IFB=0THEN265
  31. 260 IFB<256THEN270
  32. 265 PRINT"":FORI=1TOA-X1:PRINT"";:NEXT
  33. 266 PRINTTAB(Y)"[145]";PEEK(16384+A)"[157]  ":GOTO240
  34. 270 POKE16384+A,B
  35. 280 RETURN
  36. 300 IFASC(A$)>75THEN320
  37. 310 X1=53:Y=15:X2=16:GOSUB240:GOTO220
  38. 320 IFASC(A$)>91THEN340
  39. 330 X1=75:Y=25:X2=26:GOSUB240:GOTO220
  40. 340 IFASC(A$)=92THEN220
  41. 350 IFASC(A$)=93ORASC(A$)=94THENX1=76:Y=25:X2=26:GOSUB240:GOTO220
  42. 360 IFASC(A$)<193THEN220
  43. 370 IFASC(A$)>196THEN390
  44. 380 X1=174:Y=25:X2=26:GOSUB240:GOTO220
  45. 390 IFASC(A$)>218THEN220
  46. 400 X1=196:Y=35:X2=36:GOSUB240:GOTO220
  47. 410 CT$(1)="[211]TART OF [200]EADING ":CT$(2)="[211]TART OF [212]EXT    "
  48. 420 CT$(4)="[197]ND OF [212]RNSMSN.  ":CT$(5)="[197]NQUIRY          "
  49. 421 CT$(6)="[193]CKNOWLEDGE      "
  50. 430 CT$(7)="[194]ELL             ":CT$(8)="[194]ACK [211]PACE       "
  51. 431 CT$(9)="[200]ORIZONTAL [212]AB   "
  52. 440 CT$(10)="[204]INEFEED         ":CT$(11)="[214]ERTICAL [212]AB     "
  53. 441 CT$(12)="[198]ORM [198]EED        "
  54. 450 CT$(13)="[195]ARRIAGE [210]ETURN  ":CT$(14)="[211]HIFT [207]UT        "
  55. 451 CT$(15)="[211]HIFT [201]N         "
  56. 460 CT$(16)="[196]ATA [204]INK [197]SCAPE ":CT$(17)="[196][195]1 ([216]MT-[207][206])     "
  57. 461 CT$(18)="[196][195]2 ([193]UX-[207][206])     "
  58. 470 CT$(19)="[196][195]3 ([216]MT [207][198][198])    ":CT$(20)="[196][195]4 ([193]UX-[207][198][198])    "
  59. 471 CT$(21)="[206]EG. [193]CK. ([197][210][210][207][210])"
  60. 480 CT$(22)="[211]YNC. [198]ILE       ":CT$(23)="[197]ND OF [194]LOCK     "
  61. 481 CT$(24)="[195]ANCEL           "
  62. 490 CT$(25)="[197]ND OF [205]EDIUM    ":CT$(26)="[211]UBSTITUTE       "
  63. 491 CT$(27)="[197]SCAPE           "
  64. 500 CT$(28)="[198]ILE [211]EPARATOR   ":CT$(29)="[199]ROUP [211]EPARATOR  "
  65. 510 CT$(30)="[210]ECORD [211]EPARATOR ":CT$(31)="[213]NIT [211]EPARATOR   "
  66. 511 CT$(32)="[194]ACK [211]LASH       "
  67. 520 CT$(33)="[213]NDERLINE        ":CT$(34)="[193]CCENT [199]RAVE     "
  68. 521 CT$(35)="[204]EFT [194]RACE       "
  69. 530 CT$(36)="[210]IGHT [194]RACE      ":CT$(37)="[212]ILDE            "
  70. 531 CT$(38)="[196]ELETE           "
  71. 535 CT$(3)="[197]ND OF [212]EXT ([194][210][203])":CT$(40)="                 "
  72. 540 PRINT"[147]"TAB(11)"[211][208][197][195][201][193][204] [198][213][206][195][212][201][207][206][211]"
  73. 550 PRINTTAB(7)"[203][197][217]"TAB(18)"[195][207][196][197]  [193][211][195][201][201] [198][213][206][195][212][201][207][206]"
  74. 560 FORI=1TO21:PRINT"[195][212][210][204]-"CHR$(I+96);:IFI=3THENPRINT" OR [210][213][206]/[211][212][207][208]":NEXT
  75. 570 IFI=20THENPRINT" OR [196][197][204][197][212][197] .":NEXT
  76. 580 IFI=13THENPRINT" OR [210][197][212][213][210][206] .":NEXT
  77. 590 IFI=17THENPRINT" OR [196][207][215][206] ...":NEXT
  78. 600 IFI=19THENPRINT" OR [200][207][205][197] ...":NEXT
  79. 610 PRINT" ........... ":NEXT
  80. 620 PRINT"";:FORI=1TO21:PRINTTAB(18)PEEK(16384+I):NEXT
  81. 630 PRINT"";:FORI=1TO21:J=PEEK(16384+I)
  82. 631 IFJ=92ORJ=95ORJ=96THEN637
  83. 632 IFJ>123ANDJ<128THEN636
  84. 633 IFJ<32THEN635
  85. 634 J=40
  86. 635 PRINTTAB(22)CT$(J):NEXT:GOTO640
  87. 636 J=J-89:GOTO635
  88. 637 IFJ=92THENJ=J-60:GOTO635
  89. 638 J=J-62:GOTO635
  90. 640 PRINT" [205]AKE A SELECTION, KEY ENTRY + [210][197][212][213][210][206].":PRINT"              \=[206][197][216][212] [208][193][199][197]";
  91. 650 GETA$:IFA$="\"THEN800
  92. 660 IFA$=""THEN650
  93. 665 IFASC(A$)>21THEN650
  94. 666 X1=-1:Y=18:X2=19:GOSUB670:GOTO650
  95. 670 GOSUB240:IFB=92ORB=95ORB=96THEN730
  96. 680 IFB>123ANDB<128THEN720
  97. 690 IFB<32THEN710
  98. 700 B=40
  99. 710 PRINT"":FORI=1TOA-1-X1:PRINT"";:NEXT:PRINTTAB(22)CT$(B):RETURN
  100. 720 B=B-89:GOTO710
  101. 730 IFB=92THENB=B-60:GOTO710
  102. 740 B=B-62:GOTO710
  103. 800 PRINT"[147]"TAB(11)"[211][208][197][195][201][193][204] [198][213][206][195][212][201][207][206][211]"
  104. 810 PRINTTAB(7)"[203][197][217]"TAB(18)"[195][207][196][197]  [193][211][195][201][201] [198][213][206][195][212][201][207][206]"
  105. 820 FORI=22TO26:PRINT"[195][212][210][204]-"CHR$(I+96);:PRINT" ...........":NEXT
  106. 831 PRINT"[195][212][210][204]-[ ........... ":PRINT"[195][212][210][204]-3 ........... ":PRINT"[195][212][210][204]-] OR [210][201][199][200][212] .. "
  107. 832 PRINT"[195][212][210][204]-6 ........... ":PRINT"[195][212][210][204]-= ........... "
  108. 840 PRINT"";:FORI=22TO31:PRINTTAB(18)PEEK(16384+I):NEXT
  109. 850 PRINT"";:FORI=22TO31:J=PEEK(16384+I)
  110. 851 IFJ=92ORJ=95ORJ=96THEN857
  111. 852 IFJ>123ANDJ<128THEN856
  112. 853 IFJ<32THEN855
  113. 854 J=40
  114. 855 PRINTTAB(22)CT$(J):NEXT:GOTO860
  115. 856 J=J-89:GOTO855
  116. 857 IFJ=92THENJ=J-60:GOTO855
  117. 858 J=J-62:GOTO855
  118. 860 PRINT" [205]AKE A SELECTION, KEY ENTRY + [210][197][212][213][210][206].":PRINT" \=[206][197][216][212] [208][193][199][197]";
  119. 870 PRINT:PRINTTAB(14)"[207][212][200][197][210] [195][207][196][197][211]"
  120. 875 PRINT"   92 [194]ACK [211]LASH    124 [204]EFT [194]RACE"
  121. 880 PRINT"   95 [213]NDERLINE     125 [210]IGHT [194]RACE"
  122. 885 PRINT"   96 [193]CCENT [199]RAVE  126 [212]ILDE"
  123. 890 PRINTTAB(14)"127 [196]ELETE"
  124. 900 PRINT"[206][207][212][197]:[212]HE [193][211][195][201][201] FUNCTIONS LISTED ARE THE"
  125. 901 PRINT"'STANDARD' [193][211][195][201][201] FUNCTIONS ASSOCIATED"
  126. 902 PRINT"WITH THESE CODES.  [211]OME CODES MAY BE"
  127. 903 PRINT"USED DIFFERENTLY OR NOT AT ALL DEPENDING";
  128. 904 PRINT"ON THE HOST COMPUTER.  [212]HE '[207][212][200][197][210] [195][207][196][197][211]'";
  129. 905 PRINT"CAN BE SUBSTITUTED AS NEEDED.";
  130. 910 GETA$:IFA$="\"THEN950
  131. 920 IFA$=""THEN910
  132. 930 IFASC(A$)<22ORASC(A$)>31THEN910
  133. 940 X1=20:Y=18:X2=19:GOSUB670:GOTO910
  134. 950 PRINT"[147][196]O YOU WANT TO SAVE THIS CONFIGURATION":PRINT"TO DISK";
  135. 960 INPUTAN$:IFLEFT$(AN$,1)="N"THENRETURN
  136. 965 IFLEFT$(AN$,1)<>"Y"THEN950
  137. 970 INPUT"[198]ILENAME";F$:OPEN8,8,8,"0:"+F$+",S,W":GOSUB2000:IFERTHENCLOSE8:GOTO950
  138. 975 FORI=0TO255:PRINT#8,CHR$(PEEK(16384+I));:NEXT:CLOSE8:RETURN
  139. 1000 INPUT"[198]ILENAME";F$:GOTO1110
  140. 1100 F$="ASCKFG"
  141. 1110 OPEN8,8,8,"0:"+F$+",S,R":GOSUB2000:IFERTHENCLOSE8:RETURN
  142. 1120 FORI=0TO255:GET#8,A$:IFA$=""THENPOKE16384+I,0:NEXT
  143. 1130 POKE16384+I,ASC(A$):NEXT
  144. 1140 CLOSE8
  145. 1150 PRINT#15,"S0:KFG"
  146. 1160 OPEN8,8,8,"0:KFG,S,W":GOSUB2000:IFERTHENCLOSE8:RETURN
  147. 1170 GOSUB975:IFF$="ASCKFG"THENF$="[212]HE STANDARD [193][211][195][201][201] CONFIGURATION"
  148. 1180 PRINT"  "F$:PRINT"  IS NOW INSTALLED, YOUR KEYBOARD WILL"
  149. 1190 PRINT"  BE CONFIGURED ACCORDING TO THIS FILE"
  150. 1200 PRINT"  WHEN YOU ARE IN '[212][197][210][205][201][206][193][204]' MODE.":PRINT"  [200]IT ANY KEY TO CONTINUE"
  151. 1210 GETA$:IFA$=""THEN1210
  152. 1220 RETURN
  153. 2000 INPUT#15,A$,B$,C$,D$:IFA$="00"THENER=0:RETURN
  154. 2010 PRINTA$;B$;C$;D$:PRINT"[200]IT ANY KEY TO CONTINUE"
  155. 2020 GETA$:IFA$=""THEN2020
  156. 2030 ER=1:RETURN
  157. 3000 FORI=0TO255:PRINTCHR$(PEEK(16384+I));:NEXT
  158.